inherited frmCredito: TfrmCredito
  Left = 551
  Top = 375
  Caption = 'Cr'#233'dito de Clientes'
  ClientHeight = 340
  ClientWidth = 613
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 303
    Width = 613
    inherited Bitfecha: TBitBtn
      Left = 536
    end
    object btnEmitir: TBitBtn
      Left = 443
      Top = 5
      Width = 94
      Height = 26
      Hint = 'Imprime comprovante'
      Caption = 'Emitir Recibo'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = btnEmitirClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  inherited Panel2: TPanel
    Width = 613
    Height = 303
    inherited Panel3: TPanel
      Width = 611
      Caption = 'Controle de Cr'#233'ditos'
      inherited GroupBox1: TGroupBox
        Left = 532
      end
    end
    inherited Panel4: TPanel
      Width = 611
      Height = 261
      object Label1: TLabel [0]
        Left = 8
        Top = 8
        Width = 35
        Height = 13
        Caption = 'Cliente:'
      end
      object Label2: TLabel [1]
        Left = 8
        Top = 87
        Width = 96
        Height = 13
        Caption = 'Data de Devolu'#231#227'o:'
      end
      object Label3: TLabel [2]
        Left = 168
        Top = 87
        Width = 78
        Height = 13
        Caption = 'Valor Devolvido:'
      end
      object Label4: TLabel [3]
        Left = 328
        Top = 87
        Width = 91
        Height = 13
        Caption = 'Validade do cr'#233'dito'
      end
      object Label6: TLabel [4]
        Left = 488
        Top = 87
        Width = 55
        Height = 13
        Caption = 'Valor Pago:'
      end
      object Label5: TLabel [5]
        Left = 8
        Top = 47
        Width = 44
        Height = 13
        Caption = 'Empresa:'
      end
      inherited SbHints: TStatusBar
        Top = 238
        Width = 603
      end
      object edtCliente: TDBEdit
        Left = 8
        Top = 24
        Width = 41
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CRE_PESSOA'
        DataSource = DtSrc
        TabOrder = 0
        OnExit = edtClienteExit
      end
      object btnCliente: TBitBtn
        Left = 49
        Top = 24
        Width = 25
        Height = 21
        Caption = '...'
        TabOrder = 1
        TabStop = False
        OnClick = btnClienteClick
      end
      object stPessoa: TStaticText
        Left = 73
        Top = 24
        Width = 521
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 2
      end
      object edtDevolucao: TDBEdit
        Left = 8
        Top = 103
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CRE_DATA'
        DataSource = DtSrc
        TabOrder = 6
        OnExit = edtDevolucaoExit
      end
      object edtValor: TDBEdit
        Left = 168
        Top = 103
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CRE_VALOR'
        DataSource = DtSrc
        TabOrder = 7
        OnEnter = edtValorEnter
      end
      object edtValidade: TDBEdit
        Left = 328
        Top = 103
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CRE_VALIDADE'
        DataSource = DtSrc
        TabOrder = 8
        OnExit = edtDevolucaoExit
      end
      object rgSituacao: TRadioGroup
        Left = 8
        Top = 130
        Width = 145
        Height = 105
        Caption = 'Situa'#231#227'o do Cr'#233'dito'
        ItemIndex = 0
        Items.Strings = (
          'ABERTO'
          'PAGO'
          'CANCELADO')
        TabOrder = 10
      end
      object edtPago: TDBEdit
        Left = 488
        Top = 103
        Width = 113
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CRE_VALORPAGO'
        DataSource = DtSrc
        TabOrder = 9
        OnEnter = edtValorEnter
      end
      object GroupBox2: TGroupBox
        Left = 160
        Top = 130
        Width = 441
        Height = 105
        Caption = 'Observa'#231#245'es'
        TabOrder = 11
        object mObservacoes: TDBMemo
          Left = 2
          Top = 15
          Width = 437
          Height = 88
          Align = alClient
          DataField = 'CRE_OBSERVACOES'
          DataSource = DtSrc
          TabOrder = 0
        end
      end
      object edtEmpresa: TDBEdit
        Left = 8
        Top = 63
        Width = 41
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CRE_EMPRESA'
        DataSource = DtSrc
        TabOrder = 3
        OnExit = edtEmpresaExit
      end
      object btnEmpresa: TBitBtn
        Left = 49
        Top = 63
        Width = 25
        Height = 21
        Caption = '...'
        TabOrder = 4
        TabStop = False
        OnClick = btnEmpresaClick
      end
      object stEmpresa: TStaticText
        Left = 73
        Top = 63
        Width = 520
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 5
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Credito
  end
  object SQLC_Credito: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'   CRE_IDFCOD, '#13#10'   CRE_PESSOA,'#13#10'   CRE_EMPRESA, '#13#10'   C' +
      'RE_DATA,'#13#10'   CRE_VALOR,'#13#10'   CRE_VALIDADE,'#13#10'   CRE_VALORPAGO,'#13#10'  ' +
      ' CRE_SITUACAO,'#13#10'   CRE_OBSERVACOES'#13#10'FROM CREDITO_CLIENTE'#13#10'WHERE ' +
      'CRE_IDFCOD=:IDF'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'IDF'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 57
    Top = 9
    object SQLC_CreditoCRE_PESSOA: TIntegerField
      FieldName = 'CRE_PESSOA'
      Required = True
    end
    object SQLC_CreditoCRE_DATA: TDateField
      FieldName = 'CRE_DATA'
      Required = True
    end
    object SQLC_CreditoCRE_VALOR: TFMTBCDField
      FieldName = 'CRE_VALOR'
      Required = True
      DisplayFormat = '#####0.00'
      EditFormat = '#####0.00'
      Precision = 15
      Size = 2
    end
    object SQLC_CreditoCRE_VALIDADE: TDateField
      FieldName = 'CRE_VALIDADE'
    end
    object SQLC_CreditoCRE_VALORPAGO: TFMTBCDField
      FieldName = 'CRE_VALORPAGO'
      DisplayFormat = '#####0.00'
      EditFormat = '#####0.00'
      Precision = 15
      Size = 2
    end
    object SQLC_CreditoCRE_SITUACAO: TStringField
      FieldName = 'CRE_SITUACAO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object SQLC_CreditoCRE_OBSERVACOES: TMemoField
      FieldName = 'CRE_OBSERVACOES'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_CreditoCRE_IDFCOD: TIntegerField
      FieldName = 'CRE_IDFCOD'
      Required = True
    end
    object SQLC_CreditoCRE_EMPRESA: TSmallintField
      FieldName = 'CRE_EMPRESA'
      Required = True
    end
  end
end
